home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 3.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 39 3a 31 | 34 20 31 39 39 35 0a 3b | 13:59:1|4 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 65 6e | 65 72 67 69 7a 65 2f 62 |/lisp/en|ergize/b|
|00000090| 61 63 6b 74 72 61 63 65 | 2d 6c 6f 67 67 69 6e 67 |acktrace|-logging|
|000000a0| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000b0| 72 73 69 6f 6e 20 31 39 | 2e 31 33 20 58 45 6d 61 |rsion 19|.13 XEma|
|000000c0| 63 73 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |cs Lucid|..;;; by|
|000000d0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000e0| 2e 32 35 3b 20 31 2d 53 | 65 70 2d 39 34 2e 0a 3b |.25; 1-S|ep-94..;|
|000000f0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000100| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000110| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000120| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000130| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000140| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000150| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000160| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000170| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000180| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000190| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|. (s|
|000001a0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001b0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001c0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |). (e|rror "Th|
|000001d0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001e0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001f0| 39 2e 22 29 29 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |9."))..(|byte-cod|
|00000200| 65 20 22 c0 c1 21 ac 82 | c2 11 c0 c3 21 ac 82 c4 |e "..!..|....!...|
|00000210| 13 c0 c5 21 ac 82 c4 15 | c0 c6 21 ac 83 c4 16 06 |...!....|..!.....|
|00000220| c0 c7 21 ac 83 c7 16 07 | c8 c9 4d 88 ca cb 4d 88 |..!.....|..M...M.|
|00000230| cc cd 4d 88 ce cf 4d 88 | d0 d1 4d 88 d2 d3 4d 88 |..M...M.|..M...M.|
|00000240| d4 d5 4d 88 d6 d7 4d 88 | d8 d9 4d 88 da db 4d 88 |..M...M.|..M...M.|
|00000250| dc dd 4d 88 de df 4d 88 | e0 e1 4d 88 e2 e3 4d 88 |..M...M.|..M...M.|
|00000260| e4 e5 4d 88 e6 e7 4d 88 | e8 e9 4d 88 ea eb 4d 88 |..M...M.|..M...M.|
|00000270| ec ed 4d 88 ee ef 4d 88 | f0 f1 4d 87 22 20 5b 62 |..M...M.|..M." [b|
|00000280| 6f 75 6e 64 70 20 2a 62 | 74 6c 2d 69 6e 64 65 78 |oundp *b|tl-index|
|00000290| 2d 63 6f 75 6e 74 65 72 | 2a 20 31 20 2a 62 74 6c |-counter|* 1 *btl|
|000002a0| 2d 64 61 74 61 2d 66 69 | 6c 65 2a 20 6e 69 6c 20 |-data-fi|le* nil |
|000002b0| 2a 62 74 6c 2d 69 6e 64 | 69 63 65 73 2d 61 73 73 |*btl-ind|ices-ass|
|000002c0| 69 67 6e 65 64 2a 20 65 | 6c 69 73 70 2d 6f 6e 6c |igned* e|lisp-onl|
|000002d0| 79 2d 62 74 6c 20 63 61 | 64 69 6c 6c 61 63 2d 69 |y-btl ca|dillac-i|
|000002e0| 64 2d 74 61 67 2d 73 61 | 76 65 20 61 73 73 69 67 |d-tag-sa|ve assig|
|000002f0| 6e 2d 62 74 6c 2d 69 6e | 64 69 63 65 73 20 23 5b |n-btl-in|dices #[|
|00000300| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 6f 72 63 65 |(&option|al force|
|00000310| 29 20 22 08 ac 84 09 3f | ad 87 c2 c3 21 88 c4 89 |) "....?|....!...|
|00000320| 11 87 22 20 5b 66 6f 72 | 63 65 20 2a 62 74 6c 2d |.." [for|ce *btl-|
|00000330| 69 6e 64 69 63 65 73 2d | 61 73 73 69 67 6e 65 64 |indices-|assigned|
|00000340| 2a 20 6d 61 70 61 74 6f | 6d 73 20 61 73 73 69 67 |* mapato|ms assig|
|00000350| 6e 2d 62 74 6c 2d 69 6e | 64 65 78 20 74 5d 20 32 |n-btl-in|dex t] 2|
|00000360| 5d 20 62 74 6c 2d 63 6f | 6d 70 69 6c 65 64 2d 70 |] btl-co|mpiled-p|
|00000370| 20 23 5b 28 66 75 6e 63 | 74 69 6f 6e 29 20 22 c0 | #[(func|tion) ".|
|00000380| 09 21 ae b6 c2 09 21 ae | b1 09 3a ad ad 09 40 c3 |.!....!.|..:...@.|
|00000390| 3d ad a7 09 41 41 c4 1d | 1e 06 0e 06 ab 9a 0d ac |=...AA..|........|
|000003a0| 97 0e 06 40 89 1e 07 3a | ab 86 0e 07 40 c8 3d 15 |...@...:|....@.=.|
|000003b0| 0e 06 41 16 06 29 aa 62 | 0d 2a 87 22 20 5b 73 75 |..A..).b|.*." [su|
|000003c0| 62 72 70 20 66 75 6e 63 | 74 69 6f 6e 20 63 6f 6d |brp func|tion com|
|000003d0| 70 69 6c 65 64 2d 66 75 | 6e 63 74 69 6f 6e 2d 70 |piled-fu|nction-p|
|000003e0| 20 6c 61 6d 62 64 61 20 | 6e 69 6c 20 71 75 69 74 | lambda |nil quit|
|000003f0| 20 72 65 73 74 20 74 72 | 69 61 6c 20 62 79 74 65 | rest tr|ial byte|
|00000400| 2d 63 6f 64 65 5d 20 33 | 5d 20 67 65 74 2d 62 74 |-code] 3|] get-bt|
|00000410| 6c 2d 69 6e 64 65 78 20 | 23 5b 28 73 79 6d 62 6f |l-index |#[(symbo|
|00000420| 6c 29 20 22 08 39 ad 9f | 08 09 4e ae 83 08 c2 4e |l) ".9..|..N....N|
|00000430| 89 1b ab 8c 0b a8 ab 88 | 0b c4 56 ab 83 0b aa 86 |........|..V.....|
|00000440| 0d 13 0d 54 15 0b 29 87 | 22 20 5b 73 79 6d 62 6f |...T..).|" [symbo|
|00000450| 6c 20 63 61 64 69 6c 6c | 61 63 2d 69 64 2d 74 61 |l cadill|ac-id-ta|
|00000460| 67 20 63 61 64 69 6c 6c | 61 63 2d 69 64 2d 74 61 |g cadill|ac-id-ta|
|00000470| 67 2d 73 61 76 65 20 76 | 61 6c 20 30 20 2a 62 74 |g-save v|al 0 *bt|
|00000480| 6c 2d 69 6e 64 65 78 2d | 63 6f 75 6e 74 65 72 2a |l-index-|counter*|
|00000490| 5d 20 33 5d 20 64 69 73 | 61 62 6c 65 2d 62 74 6c |] 3] dis|able-btl|
|000004a0| 2d 69 6e 64 65 78 20 23 | 5b 28 73 79 6d 62 6f 6c |-index #|[(symbol|
|000004b0| 29 20 22 08 39 ad a0 08 | 09 4e ae 83 08 c2 4e 89 |) ".9...|.N....N.|
|000004c0| 1b ab 8f 0b a8 ab 8b 0b | c4 56 ab 86 c5 08 c2 0b |........|.V......|
|000004d0| 23 88 c6 08 09 5c 22 29 | 87 22 20 5b 73 79 6d 62 |#....\")|." [symb|
|000004e0| 6f 6c 20 63 61 64 69 6c | 6c 61 63 2d 69 64 2d 74 |ol cadil|lac-id-t|
|000004f0| 61 67 20 63 61 64 69 6c | 6c 61 63 2d 69 64 2d 74 |ag cadil|lac-id-t|
|00000500| 61 67 2d 73 61 76 65 20 | 76 61 6c 20 30 20 70 75 |ag-save |val 0 pu|
|00000510| 74 20 72 65 6d 70 72 6f | 70 5d 20 35 5d 20 61 73 |t rempro|p] 5] as|
|00000520| 73 69 67 6e 2d 62 74 6c | 2d 69 6e 64 65 78 20 23 |sign-btl|-index #|
|00000530| 5b 28 73 79 6d 62 6f 6c | 29 20 22 08 39 ad bd c1 |[(symbol|) ".9...|
|00000540| 08 21 ad b8 08 4b 1a c3 | 5c 6e 21 1c c5 5c 6e 21 |.!...K..|\n!..\n!|
|00000550| 1e 06 08 0e 07 4e 1e 08 | 0e 09 ab 92 0e 06 ab 8e |.....N..|........|
|00000560| 0e 08 ac 8a ca 08 0e 07 | cb 08 21 23 aa 8f 0e 09 |........|..!#....|
|00000570| 3f ad 8a 0c ad 87 0e 08 | ad 83 cc 08 21 2c 87 22 |?.......|....!,."|
|00000580| 20 5b 73 79 6d 62 6f 6c | 20 66 62 6f 75 6e 64 70 | [symbol| fboundp|
|00000590| 20 66 75 6e 63 74 69 6f | 6e 20 73 75 62 72 70 20 | functio|n subrp |
|000005a0| 73 75 62 72 2d 66 75 6e | 63 74 69 6f 6e 20 62 74 |subr-fun|ction bt|
|000005b0| 6c 2d 63 6f 6d 70 69 6c | 65 64 2d 70 20 63 6f 6d |l-compil|ed-p com|
|000005c0| 70 69 6c 65 64 2d 66 75 | 6e 63 74 69 6f 6e 20 63 |piled-fu|nction c|
|000005d0| 61 64 69 6c 6c 61 63 2d | 69 64 2d 74 61 67 20 74 |adillac-|id-tag t|
|000005e0| 61 67 67 65 64 2d 66 75 | 6e 63 74 69 6f 6e 20 65 |agged-fu|nction e|
|000005f0| 6c 69 73 70 2d 6f 6e 6c | 79 2d 62 74 6c 20 70 75 |lisp-onl|y-btl pu|
|00000600| 74 20 67 65 74 2d 62 74 | 6c 2d 69 6e 64 65 78 20 |t get-bt|l-index |
|00000610| 64 69 73 61 62 6c 65 2d | 62 74 6c 2d 69 6e 64 65 |disable-|btl-inde|
|00000620| 78 5d 20 35 5d 20 66 69 | 6c 65 2d 74 6f 2d 62 74 |x] 5] fi|le-to-bt|
|00000630| 6c 2d 64 61 74 61 2d 66 | 69 6c 65 20 23 5b 28 66 |l-data-f|ile #[(f|
|00000640| 69 6c 65 29 20 22 c0 c1 | 21 89 1a 0b 98 ab 82 c4 |ile) "..|!.......|
|00000650| 13 29 0b ae 81 0d 13 c4 | 1e 06 0b 3b ab 85 c7 0b |.)......|...;....|
|00000660| 21 ab 85 c4 16 06 aa 92 | c8 0b 21 ab 8a c9 ca cb |!.......|..!.....|
|00000670| 0b 5c 22 21 16 06 aa 83 | cc 16 06 0e 06 ac 84 cd |.\"!....|........|
|00000680| ce 21 88 29 0b 87 22 20 | 5b 65 78 70 61 6e 64 2d |.!.).." |[expand-|
|00000690| 66 69 6c 65 2d 6e 61 6d | 65 20 22 22 20 62 61 73 |file-nam|e "" bas|
|000006a0| 65 2d 64 69 72 20 66 69 | 6c 65 20 6e 69 6c 20 2a |e-dir fi|le nil *|
|000006b0| 62 74 6c 2d 64 61 74 61 | 2d 66 69 6c 65 2a 20 67 |btl-data|-file* g|
|000006c0| 6f 2d 61 68 65 61 64 20 | 66 69 6c 65 2d 64 69 72 |o-ahead |file-dir|
|000006d0| 65 63 74 6f 72 79 2d 70 | 20 66 69 6c 65 2d 65 78 |ectory-p| file-ex|
|000006e0| 69 73 74 73 2d 70 20 79 | 2d 6f 72 2d 6e 2d 70 20 |ists-p y|-or-n-p |
|000006f0| 6d 65 73 73 61 67 65 20 | 22 46 69 6c 65 20 65 78 |message |"File ex|
|00000700| 69 73 74 73 20 2d 2d 20 | 6f 76 65 72 77 72 69 74 |ists -- |overwrit|
|00000710| 65 20 25 73 3f 20 22 20 | 74 20 65 72 72 6f 72 20 |e %s? " |t error |
|00000720| 22 42 61 64 20 64 61 74 | 61 20 66 69 6c 65 2e 22 |"Bad dat|a file."|
|00000730| 5d 20 35 5d 20 62 74 6c | 2d 69 6e 69 74 20 23 5b |] 5] btl|-init #[|
|00000740| 28 66 69 6c 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(file &o|ptional |
|00000750| 70 63 2d 6c 6f 67 67 69 | 6e 67 29 20 22 c0 09 21 |pc-loggi|ng) "..!|
|00000760| 11 5c 6e ab 83 c3 aa 81 | c4 1d c6 c7 c8 0d 5c 22 |.\n.....|......\"|
|00000770| 21 88 c9 ca 21 88 cb cc | 21 88 09 16 0d 5c 6e ab |!...!...|!....\n.|
|00000780| 86 ce 09 21 88 aa 84 cf | 09 21 88 c6 c7 d0 0d 5c |...!....|.!.....\|
|00000790| 22 21 88 c9 d1 21 88 c6 | d2 21 88 c9 ca 21 29 87 |"!...!..|.!...!).|
|000007a0| 22 20 5b 66 69 6c 65 2d | 74 6f 2d 62 74 6c 2d 64 |" [file-|to-btl-d|
|000007b0| 61 74 61 2d 66 69 6c 65 | 20 66 69 6c 65 20 70 63 |ata-file| file pc|
|000007c0| 2d 6c 6f 67 67 69 6e 67 | 20 22 50 43 20 6c 6f 67 |-logging| "PC log|
|000007d0| 67 69 6e 67 22 20 22 62 | 74 6c 22 20 6c 6f 67 2d |ging" "b|tl" log-|
|000007e0| 74 79 70 65 20 6d 65 73 | 73 61 67 65 20 66 6f 72 |type mes|sage for|
|000007f0| 6d 61 74 20 22 49 6e 69 | 74 69 61 6c 69 7a 69 6e |mat "Ini|tializin|
|00000800| 67 20 25 73 2e 2e 2e 22 | 20 73 69 74 2d 66 6f 72 |g %s..."| sit-for|
|00000810| 20 30 20 61 73 73 69 67 | 6e 2d 62 74 6c 2d 69 6e | 0 assig|n-btl-in|
|00000820| 64 69 63 65 73 20 74 20 | 2a 62 74 6c 2d 64 61 74 |dices t |*btl-dat|
|00000830| 61 2d 66 69 6c 65 2a 20 | 69 6e 69 74 69 61 6c 69 |a-file* |initiali|
|00000840| 7a 65 2d 70 63 2d 6c 6f | 67 67 69 6e 67 2d 69 6e |ze-pc-lo|gging-in|
|00000850| 74 65 72 6e 61 6c 20 69 | 6e 69 74 69 61 6c 69 7a |ternal i|nitializ|
|00000860| 65 2d 62 61 63 6b 74 72 | 61 63 65 2d 6c 6f 67 67 |e-backtr|ace-logg|
|00000870| 69 6e 67 2d 69 6e 74 65 | 72 6e 61 6c 20 22 49 6e |ing-inte|rnal "In|
|00000880| 69 74 69 61 6c 69 7a 69 | 6e 67 20 25 73 2e 2e 2e |itializi|ng %s...|
|00000890| 64 6f 6e 65 2e 22 20 31 | 20 22 22 5d 20 34 5d 20 |done." 1| ""] 4] |
|000008a0| 73 74 61 72 74 2d 62 74 | 6c 20 23 5b 28 66 69 6c |start-bt|l #[(fil|
|000008b0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 65 6c 69 73 |e &optio|nal elis|
|000008c0| 70 2d 66 6c 61 67 2d 76 | 61 6c 29 20 22 c0 20 88 |p-flag-v|al) ". .|
|000008d0| 09 12 c3 0c 21 88 c5 20 | 87 22 20 5b 74 65 72 6d |....!.. |." [term|
|000008e0| 69 6e 61 74 65 2d 6c 6f | 67 67 69 6e 67 20 65 6c |inate-lo|gging el|
|000008f0| 69 73 70 2d 66 6c 61 67 | 2d 76 61 6c 20 65 6c 69 |isp-flag|-val eli|
|00000900| 73 70 2d 6f 6e 6c 79 2d | 62 74 6c 20 62 74 6c 2d |sp-only-|btl btl-|
|00000910| 69 6e 69 74 20 66 69 6c | 65 20 73 74 61 72 74 2d |init fil|e start-|
|00000920| 6c 6f 67 67 69 6e 67 5d | 20 32 20 6e 69 6c 20 22 |logging]| 2 nil "|
|00000930| 46 46 69 6c 65 20 69 6e | 20 77 68 69 63 68 20 74 |FFile in| which t|
|00000940| 6f 20 77 72 69 74 65 20 | 64 61 74 61 3a 20 22 5d |o write |data: "]|
|00000950| 20 73 74 61 72 74 2d 62 | 74 6c 2d 65 6c 69 73 70 | start-b|tl-elisp|
|00000960| 20 23 5b 28 66 69 6c 65 | 29 20 22 c0 09 c2 5c 22 | #[(file|) "...\"|
|00000970| 87 22 20 5b 73 74 61 72 | 74 2d 62 74 6c 20 66 69 |." [star|t-btl fi|
|00000980| 6c 65 20 74 5d 20 33 20 | 6e 69 6c 20 22 46 46 69 |le t] 3 |nil "FFi|
|00000990| 6c 65 20 69 6e 20 77 68 | 69 63 68 20 74 6f 20 77 |le in wh|ich to w|
|000009a0| 72 69 74 65 20 64 61 74 | 61 3a 20 22 5d 20 63 6f |rite dat|a: "] co|
|000009b0| 6e 73 69 6e 67 2d 62 74 | 6c 20 23 5b 28 66 69 6c |nsing-bt|l #[(fil|
|000009c0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 65 6c 69 73 |e &optio|nal elis|
|000009d0| 70 2d 66 6c 61 67 2d 76 | 61 6c 29 20 22 c0 20 88 |p-flag-v|al) ". .|
|000009e0| 09 12 c3 c4 21 88 c5 0e | 06 21 88 c7 20 87 22 20 |....!...|.!.. ." |
|000009f0| 5b 74 65 72 6d 69 6e 61 | 74 65 2d 6c 6f 67 67 69 |[termina|te-loggi|
|00000a00| 6e 67 20 65 6c 69 73 70 | 2d 66 6c 61 67 2d 76 61 |ng elisp|-flag-va|
|00000a10| 6c 20 65 6c 69 73 70 2d | 6f 6e 6c 79 2d 62 74 6c |l elisp-|only-btl|
|00000a20| 20 73 65 74 2d 6c 6f 67 | 2d 73 69 67 6e 61 6c 20 | set-log|-signal |
|00000a30| 30 20 62 74 6c 2d 69 6e | 69 74 20 66 69 6c 65 20 |0 btl-in|it file |
|00000a40| 73 74 61 72 74 2d 6c 6f | 67 67 69 6e 67 5d 20 32 |start-lo|gging] 2|
|00000a50| 20 6e 69 6c 20 22 46 46 | 69 6c 65 20 69 6e 20 77 | nil "FF|ile in w|
|00000a60| 68 69 63 68 20 74 6f 20 | 77 72 69 74 65 20 64 61 |hich to |write da|
|00000a70| 74 61 3a 20 22 5d 20 63 | 6f 6e 73 69 6e 67 2d 62 |ta: "] c|onsing-b|
|00000a80| 74 6c 2d 65 6c 69 73 70 | 20 23 5b 28 66 69 6c 65 |tl-elisp| #[(file|
|00000a90| 29 20 22 c0 09 c2 5c 22 | 87 22 20 5b 63 6f 6e 73 |) "...\"|." [cons|
|00000aa0| 69 6e 67 2d 62 74 6c 20 | 66 69 6c 65 20 74 5d 20 |ing-btl |file t] |
|00000ab0| 33 20 6e 69 6c 20 22 46 | 46 69 6c 65 20 69 6e 20 |3 nil "F|File in |
|00000ac0| 77 68 69 63 68 20 74 6f | 20 77 72 69 74 65 20 64 |which to| write d|
|00000ad0| 61 74 61 3a 20 22 5d 20 | 73 65 74 2d 65 6c 69 73 |ata: "] |set-elis|
|00000ae0| 70 2d 62 74 6c 20 23 5b | 28 61 72 67 29 20 22 c0 |p-btl #[|(arg) ".|
|00000af0| 09 c2 5c 22 89 13 87 22 | 20 5b 65 71 6c 20 61 72 |..\"..."| [eql ar|
|00000b00| 67 20 31 20 65 6c 69 73 | 70 2d 6f 6e 6c 79 2d 62 |g 1 elis|p-only-b|
|00000b10| 74 6c 5d 20 33 20 6e 69 | 6c 20 22 70 22 5d 20 73 |tl] 3 ni|l "p"] s|
|00000b20| 74 61 72 74 2d 70 63 6c | 20 23 5b 28 66 69 6c 65 |tart-pcl| #[(file|
|00000b30| 20 26 6f 70 74 69 6f 6e | 61 6c 20 65 6c 69 73 70 | &option|al elisp|
|00000b40| 2d 66 6c 61 67 2d 76 61 | 6c 29 20 22 08 11 c2 0b |-flag-va|l) "....|
|00000b50| c4 5c 22 88 c5 20 87 22 | 20 5b 65 6c 69 73 70 2d |.\".. ."| [elisp-|
|00000b60| 66 6c 61 67 2d 76 61 6c | 20 65 6c 69 73 70 2d 6f |flag-val| elisp-o|
|00000b70| 6e 6c 79 2d 62 74 6c 20 | 62 74 6c 2d 69 6e 69 74 |nly-btl |btl-init|
|00000b80| 20 66 69 6c 65 20 74 20 | 73 74 61 72 74 2d 6c 6f | file t |start-lo|
|00000b90| 67 67 69 6e 67 5d 20 33 | 20 6e 69 6c 20 22 46 46 |gging] 3| nil "FF|
|00000ba0| 69 6c 65 20 69 6e 20 77 | 68 69 63 68 20 74 6f 20 |ile in w|hich to |
|00000bb0| 77 72 69 74 65 20 64 61 | 74 61 3a 20 22 5d 20 73 |write da|ta: "] s|
|00000bc0| 74 61 72 74 2d 70 63 6c | 2d 65 6c 69 73 70 20 23 |tart-pcl|-elisp #|
|00000bd0| 5b 28 66 69 6c 65 29 20 | 22 c0 09 c2 5c 22 87 22 |[(file) |"...\"."|
|00000be0| 20 5b 73 74 61 72 74 2d | 70 63 6c 20 66 69 6c 65 | [start-|pcl file|
|00000bf0| 20 74 5d 20 33 20 6e 69 | 6c 20 22 46 46 69 6c 65 | t] 3 ni|l "FFile|
|00000c00| 20 69 6e 20 77 68 69 63 | 68 20 74 6f 20 77 72 69 | in whic|h to wri|
|00000c10| 74 65 20 64 61 74 61 3a | 20 22 5d 20 73 75 73 70 |te data:| "] susp|
|00000c20| 65 6e 64 2d 62 74 6c 20 | 23 5b 6e 69 6c 20 22 c0 |end-btl |#[nil ".|
|00000c30| 20 87 22 20 5b 73 74 6f | 70 2d 6c 6f 67 67 69 6e | ." [sto|p-loggin|
|00000c40| 67 5d 20 31 20 6e 69 6c | 20 6e 69 6c 5d 20 73 75 |g] 1 nil| nil] su|
|00000c50| 73 70 65 6e 64 2d 70 63 | 6c 20 23 5b 6e 69 6c 20 |spend-pc|l #[nil |
|00000c60| 22 c0 20 87 22 20 5b 73 | 74 6f 70 2d 6c 6f 67 67 |". ." [s|top-logg|
|00000c70| 69 6e 67 5d 20 31 20 6e | 69 6c 20 6e 69 6c 5d 20 |ing] 1 n|il nil] |
|00000c80| 72 65 73 75 6d 65 2d 62 | 74 6c 20 23 5b 6e 69 6c |resume-b|tl #[nil|
|00000c90| 20 22 c0 20 87 22 20 5b | 73 74 61 72 74 2d 6c 6f | ". ." [|start-lo|
|00000ca0| 67 67 69 6e 67 5d 20 31 | 20 6e 69 6c 20 6e 69 6c |gging] 1| nil nil|
|00000cb0| 5d 20 72 65 73 75 6d 65 | 2d 70 63 6c 20 23 5b 6e |] resume|-pcl #[n|
|00000cc0| 69 6c 20 22 c0 20 87 22 | 20 5b 73 74 61 72 74 2d |il ". ."| [start-|
|00000cd0| 6c 6f 67 67 69 6e 67 5d | 20 31 20 6e 69 6c 20 6e |logging]| 1 nil n|
|00000ce0| 69 6c 5d 20 73 74 6f 70 | 2d 62 74 6c 20 23 5b 6e |il] stop|-btl #[n|
|00000cf0| 69 6c 20 22 c0 20 87 22 | 20 5b 74 65 72 6d 69 6e |il ". ."| [termin|
|00000d00| 61 74 65 2d 6c 6f 67 67 | 69 6e 67 5d 20 31 20 6e |ate-logg|ing] 1 n|
|00000d10| 69 6c 20 6e 69 6c 5d 20 | 73 74 6f 70 2d 70 63 6c |il nil] |stop-pcl|
|00000d20| 20 23 5b 6e 69 6c 20 22 | c0 20 87 22 20 5b 74 65 | #[nil "|. ." [te|
|00000d30| 72 6d 69 6e 61 74 65 2d | 6c 6f 67 67 69 6e 67 5d |rminate-|logging]|
|00000d40| 20 31 20 6e 69 6c 20 6e | 69 6c 5d 20 73 68 6f 77 | 1 nil n|il] show|
|00000d50| 2d 62 74 6c 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |-btl #[n|il ". ..|
|00000d60| c2 c3 21 21 88 64 62 88 | c4 70 21 88 0d ad 83 c6 |..!!.db.|.p!.....|
|00000d70| 0d 21 87 22 20 5b 74 65 | 72 6d 69 6e 61 74 65 2d |.!." [te|rminate-|
|00000d80| 6c 6f 67 67 69 6e 67 20 | 73 77 69 74 63 68 2d 74 |logging |switch-t|
|00000d90| 6f 2d 62 75 66 66 65 72 | 20 67 65 74 2d 62 75 66 |o-buffer| get-buf|
|00000da0| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 42 54 4c |fer-crea|te "*BTL|
|00000db0| 20 4c 6f 67 20 49 6e 66 | 6f 2a 22 20 62 75 66 66 | Log Inf|o*" buff|
|00000dc0| 65 72 2d 64 69 73 61 62 | 6c 65 2d 75 6e 64 6f 20 |er-disab|le-undo |
|00000dd0| 2a 62 74 6c 2d 64 61 74 | 61 2d 66 69 6c 65 2a 20 |*btl-dat|a-file* |
|00000de0| 73 75 6d 6d 61 72 69 7a | 65 2d 6c 6f 67 67 69 6e |summariz|e-loggin|
|00000df0| 67 5d 20 33 20 6e 69 6c | 20 6e 69 6c 5d 5d 20 32 |g] 3 nil| nil]] 2|
|00000e00| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
